home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SHLRAM.SDA / TWINCOPY.C < prev   
Text File  |  2019-04-13  |  4KB  |  213 lines
  1. #INCLUDE <STDIO.H>
  2.  
  3. CHAR INDEV;
  4. CHAR OUTDEV;
  5. CHAR VERBOSE;
  6. MAIN(ARGC,ARGV)
  7. UNSIGNED ARGC;
  8. CHAR **AV;
  9. █
  10.   INT FCOPY();
  11.   UNSIGNED I;
  12.   CHAR **ARGV;
  13.  
  14.   ARGV = AV;
  15.   ARGC = INIT(ARGC,&ARGV);
  16.   FOR (I = 1; I < ARGC; ++I)
  17.     GLOB(ARGV[I],&FCOPY);
  18. ▌
  19.  
  20. INIT(ARGC,ARGV)
  21. █
  22.   EXTERN CHAR SYSDEV, WRKDEV;
  23.  
  24.  
  25.   INDEV = SYSDEV;
  26.   OUTDEV = WRKDEV;
  27.   VERBOSE = 0;
  28.   RETURN ARGC;
  29. ▌
  30.  
  31. /*
  32.  * EVENTUALLY MAKE THIS INVOKE FUNCTION
  33.  * FOR EACH FILE IN THE WORK DIRECTORY
  34.  * WHICH MATCHES "PATTERN"
  35.  *
  36.  * CAVEAT: OPENDIR() DOES NOT WORK WITH
  37.  *  ╥┴═ DISK
  38.  * 2ND CAVEAT: WE COPY ╞╥╧═ SYSTEM DISK
  39.  */
  40. GLOB(PATTERN, PFUNC)
  41. CHAR *PATTERN;
  42. INT (*PFUNC)();
  43. █
  44.   (*PFUNC)(PATTERN);
  45. ▌
  46.  
  47. #DEFINE ├╚╦╔╬ 0XFFC6
  48. #DEFINE ├╚╦╧╒╘ 0XFFC9
  49. #DEFINE ├╠╥├╚╬ 0XFFCC
  50. STATIC CHAR BLFLAG;
  51. STATIC CHAR MLGETB[] = █
  52. 0X20, 0X├╞, 0X╞╞, /* T1 JSR   CHRIN   */
  53. 0X91, 0X╞┬,       /*    STA   ($FB),Y */
  54. 0X├8,             /*    INY           */
  55. 0X20, 0X┬7, 0X╞╞, /*    JSR   READST  */
  56. 0X─0, 0X04,       /*    BNE   T2      */
  57. 0X├4, 34,         /*    CPY   34      */
  58. 0X─0, 0X╞1,       /*    BNE   T1      */
  59. 0X60,             /* T2 RTS           */
  60. ▌;
  61. UNSIGNED
  62. GETBLK(BUFFER, SIZE, FID)
  63. CHAR *BUFFER;
  64. UNSIGNED SIZE;
  65. ╞╔╠┼ FID;
  66. █
  67.   STATIC CHAR A, X, Y;
  68.   UNSIGNED N;
  69.  
  70.   IF (BLFLAG) RETURN 0;
  71.   /* ZERO PAGE USAGE:  SEE ╨OWER ├ ═ANUAL */
  72.   *((CHAR **)0XFB) = BUFFER;
  73.   *((CHAR *)34) = SIZE;
  74.   SYS(├╠╥├╚╬, &A, &X, &Y);
  75.   X = FID;
  76.   SYS(├╚╦╔╬, &A, &X, &Y);
  77.   Y = 0;
  78.   SYS(MLGETB, &A, &X, &Y);
  79.   N = Y;
  80.   IF (A != 0) BLFLAG = A;
  81.   SYS(├╠╥├╚╬, &A, &X, &Y);
  82.   RETURN N;
  83. ▌
  84.  
  85. STATIC CHAR MLPUTB[] = █
  86. 0X┬1, 34,         /* T1 LDA   (34),Y  */
  87. 0X20, 0X─2, 0X╞╞, /*    JSR   CHROUT  */
  88. 0X├8,             /*    INY           */
  89. 0X├4, 0X╞┬,       /*    CPY   $FB     */
  90. 0X─0, 0X╞6,       /*    BNE   T1      */
  91. 0X60,             /*    RTS           */
  92. ▌;
  93.  
  94. UNSIGNED
  95. PUTBLK(BUFFER, N, FID)
  96. CHAR *BUFFER;
  97. UNSIGNED N;
  98. ╞╔╠┼ FID;
  99. █
  100.   STATIC CHAR A, X, Y;
  101.  
  102.   IF (N == 0) RETURN 0;
  103.   *((CHAR **)34) = BUFFER;
  104.   *((CHAR *)0XFB) = N;
  105.   SYS(├╠╥├╚╬, &A, &X, &Y);
  106.   X = FID;
  107.   SYS(├╚╦╧╒╘, &A, &X, &Y);
  108.   Y = 0;
  109.   SYS(MLPUTB, &A, &X, &Y);
  110.   SYS(├╠╥├╚╬, &A, &X, &Y);
  111.   RETURN N;
  112. ▌
  113.  
  114. STATIC CHAR BUFF[256];
  115. INT
  116. FCOPY(NAME)
  117. CHAR *NAME;
  118. █
  119.   ╞╔╠┼ OPENIN(), OPENOUT();
  120.   ╞╔╠┼ INFID, OUTFID;
  121.   UNSIGNED N;
  122.   AUTO UNSIGNED TYPE;
  123.  
  124.   TYPE = 0;
  125.   IF (VERBOSE)
  126.     PRINTF("COPY %S FROM DEVICE %D TO WORK\N",NAME,INDEV);
  127.   INFID = 5;
  128.   IF ((INFID = OPENIN(INDEV,3,NAME,&TYPE)) == 0)
  129.     PRINTF("CAN'T OPEN %S FOR INPUT\N", NAME);
  130.   ELSE IF ((OUTFID = OPENOUT(NAME,TYPE)) == 0 ▀▀
  131.     FERROR())
  132.     PRINTF("CAN'T OPEN %S FOR OUTPUT\N", NAME);
  133.   ELSE █
  134. /*
  135.  * SORRY, THIS ISN'T FAST ENOUGH!
  136.  *
  137.  *  WHILE((C = FGETC(INFID)) != ┼╧╞)
  138.  *    FPUTC(C, OUTFID);
  139.  */
  140.     BLFLAG = 0;
  141.     WHILE ((N = GETBLK(BUFF,254,INFID)) != 0)
  142.       PUTBLK(BUFF,N,OUTFID);
  143.   ▌
  144.   FCLOSE(INFID);
  145.   FCLOSE(OUTFID);
  146. ▌
  147.  
  148. /*
  149.  * OPENIN - SPECIAL
  150.  *   OPENS FILE ON GIVEN DEVICE, AND
  151.  *   ATTEMPTS TO DETERMINE INPUT TYPE
  152.  *   BY THE ICKY METHOD OF REPEATED
  153.  *   OPEN ATTEMPTS
  154.  *
  155.  * UNFORTUNATELY THIS WILL BE SLOW
  156.  */
  157. OPENIN(DEV,SECADD,NAME,PTYPE)
  158. UNSIGNED DEV;
  159. UNSIGNED SECADD;
  160. CHAR *NAME;
  161. UNSIGNED *PTYPE;
  162. █
  163.   EXTERN CHAR WRKDEV;
  164.   AUTO CHAR NAMBUF[30];
  165.   REGISTER ╞╔╠┼ RFID;
  166.   REGISTER CHAR *TSTR;
  167.   REGISTER UNSIGNED FE;
  168.  
  169.   DEVICE(DEV);
  170.   *PTYPE = 0;
  171.   TSTR = INDEX(NAME, ',');
  172.   IF (TSTR != ╬╒╠╠ &&
  173.     *++TSTR != '\0' && *TSTR != 'R') █
  174.     RFID = FOPEN(NAME,"R");  /* LEAVE *PTYPE 0 */
  175.     DEVICE(WRKDEV);
  176.     RETURN RFID;
  177.   ▌
  178.  
  179.   FOR (TSTR = "SPU"; *TSTR != '\0'; ++TSTR) █
  180.     SPRINTF(NAMBUF,"%S,%C", NAME, *TSTR);
  181.     RFID = FOPEN(NAMBUF,"R");
  182.     FE = FERROR();
  183.     IF (RFID != 0 && FE == 0) █
  184.       *PTYPE = *TSTR;
  185.       DEVICE(WRKDEV);
  186.       RETURN RFID;
  187.     ▌
  188.     ELSE
  189.       FCLOSE(RFID);
  190.   ▌
  191.   DEVICE(WRKDEV);
  192.   RETURN 0;
  193. ▌
  194.  
  195. /*
  196.  * OPENOUT - SPECIAL TO DO FOPEN OF
  197.  *  SPECIFIED TYPE
  198.  */
  199. ╞╔╠┼
  200. OPENOUT(NAME,TYPE)
  201. CHAR *NAME;
  202. UNSIGNED TYPE;
  203. █
  204.   AUTO CHAR NAMBUF[30];
  205.  
  206.   IF (TYPE != 0) █
  207.     SPRINTF(NAMBUF,"%S,%C", NAME, TYPE);
  208.     NAME = NAMBUF;
  209.   ▌
  210.   RETURN FOPEN(NAME,"W");
  211.   
  212. ▌
  213.